(interactive-form): Fix paren typo.

diff --git a/lisp/subr.el b/lisp/subr.el
index 67f9b83887d22e7426cf028f7fb410f47582fa39..ffb6f7f0ca62dd96beac5ce1bcd64a6e331442d0 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1468,7 +1468,7 @@ If function is a command (see `commandp'), value is a list of the form
           (when (stringp (car function))
             (setq function (cdr function)))
           (let ((form (car function)))
-            (when (eq (car-safe form 'interactive))
+            (when (eq (car-safe form) 'interactive)
               (copy-sequence form)))))))
 
 (defun assq-delete-all (key alist)